home *** CD-ROM | disk | FTP | other *** search
XSetup plugin | 2002-02-06 | 1.1 KB | 48 lines |
- "FILE"="Xteq Systems X-Setup Plugin 5.0"
- "TYPE"="6"
- "COUNT"="1"
- "UIPATH"="Hardware\CD-ROM/DVD"
- "NAME"="CD-R/CD-RW/DVD-R/DVD-RW Burning"
- "LANGUAGE"="VBScript"
- "TEXT 1"="Allow built-in burning support"
- "DESCRIPTION 1"="This option determines whether or not Windows allows built-in CD/DVD-burning or not."
- "COMMENT 1"="See: http://www.winguides.com/registry/display.php/979/ "
- "VERSION"="1.00"
- "AUTHOR"="Xteq Systems (CptSiskoX)"
- "COPYRIGHT"="Copyright 2002 ⌐ Xteq Systems - All Rights Reserved"
- "CONTACTURL"="http://www.xteq.com/"
- "OSVERSION"="000001"
-
- sP="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCDBurning"
-
- SUB Plugin_Initialize
- s=RegValueExists(sP)
- if s=true then
- f=RegReadValue(sP)
- if f=0 then
- Call SetUIElement(1,true)
- else
- Call SetUIElement(1,false)
- end if
- else
- Call SetUIElement(1,true)
- end if
- END SUB
-
- SUB Plugin_Apply(ElementIndex,ElementSubIndex)
- h=GetUIElement(1)
- if h=true then
- g=RegValueExists(sP)
- if g=true then
- Call RegWriteValue(sP,0,2)
- end if
- else
- Call RegWriteValue(sP,1,2)
- end if
-
- Call Restart()
- END SUB
-
- SUB Plugin_Terminate
- END SUB
-